; MODULES;(defmodule KBS;	(export ?ALL));(defmodule INIT;	(import KBS ?ALL));(defmodule DESIGN;	(import KBS ?ALL))  ; CONSTANTS(defglobal 	;KBS			?*Ku* = 0.4			?*S2* = 0.6			?*S3* = 0.75);INIT::(deffunction load-files ( ?dir )
	; DATA STRUCTURES / CLASS DEFINITIONS	(load (str-cat ?dir "Miscellaneous.clp"))		(load (str-cat ?dir "Core-Constants.clp"))	(load (str-cat ?dir "Core-Table.clp"))	(load (str-cat ?dir "Wire-Table.clp"))	(load (str-cat ?dir "Requested-Design.clp"))	(load (str-cat ?dir "Core-Material.clp"))	(load (str-cat ?dir "Core.clp"))	(load (str-cat ?dir "Wire.clp"))	(load (str-cat ?dir "Winding.clp"))	(load (str-cat ?dir "Inductor.clp"))		(load (str-cat ?dir "Init-Rule-Set.clp"))	(load (str-cat ?dir "Initial-Design-Rule-Set.clp"))	(load (str-cat ?dir "Modify-Rule-Set.clp"))	(load (str-cat ?dir "Test-Rule-Set.clp")))